﻿Namespace OracleClient
    Public Class OracleConnection
        Implements IDbConnection

        Public Sub New(ByVal ConnectionString As String)

        End Sub

        Public Sub New()

        End Sub

        Public Function BeginTransaction() As System.Data.IDbTransaction Implements System.Data.IDbConnection.BeginTransaction

        End Function

        Public Function BeginTransaction(ByVal il As System.Data.IsolationLevel) As System.Data.IDbTransaction Implements System.Data.IDbConnection.BeginTransaction

        End Function

        Public Sub ChangeDatabase(ByVal databaseName As String) Implements System.Data.IDbConnection.ChangeDatabase

        End Sub

        Public Sub Close() Implements System.Data.IDbConnection.Close

        End Sub

        Public Property ConnectionString() As String Implements System.Data.IDbConnection.ConnectionString
            Get

            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public ReadOnly Property ConnectionTimeout() As Integer Implements System.Data.IDbConnection.ConnectionTimeout
            Get

            End Get
        End Property

        Public Function CreateCommand() As System.Data.IDbCommand Implements System.Data.IDbConnection.CreateCommand

        End Function

        Public ReadOnly Property Database() As String Implements System.Data.IDbConnection.Database
            Get

            End Get
        End Property

        Public Sub Open() Implements System.Data.IDbConnection.Open

        End Sub

        Public ReadOnly Property State() As System.Data.ConnectionState Implements System.Data.IDbConnection.State
            Get

            End Get
        End Property

        Private disposedValue As Boolean = False        ' To detect redundant calls

        ' IDisposable
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not Me.disposedValue Then
                If disposing Then
                    ' TODO: free other state (managed objects).
                End If

                ' TODO: free your own state (unmanaged objects).
                ' TODO: set large fields to null.
            End If
            Me.disposedValue = True
        End Sub

#Region " IDisposable Support "
        ' This code added by Visual Basic to correctly implement the disposable pattern.
        Public Sub Dispose() Implements IDisposable.Dispose
            ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub
#End Region

    End Class
    Public Class OracleException
        Inherits Exception
    End Class
    Public Class OracleDataAdapter
        Implements IDataAdapter

        Public Sub New()

        End Sub

        Public Sub New(ByVal cmd As IDbCommand)

        End Sub
        Public Function Fill(ByVal dataSet As System.Data.DataSet) As Integer Implements System.Data.IDataAdapter.Fill

        End Function

        Public Function FillSchema(ByVal dataSet As System.Data.DataSet, ByVal schemaType As System.Data.SchemaType) As System.Data.DataTable() Implements System.Data.IDataAdapter.FillSchema

        End Function

        Public Function GetFillParameters() As System.Data.IDataParameter() Implements System.Data.IDataAdapter.GetFillParameters

        End Function

        Public Property MissingMappingAction() As System.Data.MissingMappingAction Implements System.Data.IDataAdapter.MissingMappingAction
            Get

            End Get
            Set(ByVal value As System.Data.MissingMappingAction)

            End Set
        End Property

        Public Property MissingSchemaAction() As System.Data.MissingSchemaAction Implements System.Data.IDataAdapter.MissingSchemaAction
            Get

            End Get
            Set(ByVal value As System.Data.MissingSchemaAction)

            End Set
        End Property

        Public ReadOnly Property TableMappings() As System.Data.ITableMappingCollection Implements System.Data.IDataAdapter.TableMappings
            Get

            End Get
        End Property

        Public Function Update(ByVal dataSet As System.Data.DataSet) As Integer Implements System.Data.IDataAdapter.Update

        End Function
    End Class


    Public Class OracleCommand
        Implements IDbCommand

        Public Sub Cancel() Implements System.Data.IDbCommand.Cancel

        End Sub

        Public Property CommandText() As String Implements System.Data.IDbCommand.CommandText
            Get

            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Property CommandTimeout() As Integer Implements System.Data.IDbCommand.CommandTimeout
            Get

            End Get
            Set(ByVal value As Integer)

            End Set
        End Property

        Public Property CommandType() As System.Data.CommandType Implements System.Data.IDbCommand.CommandType
            Get

            End Get
            Set(ByVal value As System.Data.CommandType)

            End Set
        End Property

        Public Property Connection() As System.Data.IDbConnection Implements System.Data.IDbCommand.Connection
            Get

            End Get
            Set(ByVal value As System.Data.IDbConnection)

            End Set
        End Property

        Public Function CreateParameter() As System.Data.IDbDataParameter Implements System.Data.IDbCommand.CreateParameter

        End Function

        Public Function ExecuteNonQuery() As Integer Implements System.Data.IDbCommand.ExecuteNonQuery

        End Function

        Public Function ExecuteReader() As System.Data.IDataReader Implements System.Data.IDbCommand.ExecuteReader

        End Function

        Public Function ExecuteReader(ByVal behavior As System.Data.CommandBehavior) As System.Data.IDataReader Implements System.Data.IDbCommand.ExecuteReader

        End Function

        Public Function ExecuteScalar() As Object Implements System.Data.IDbCommand.ExecuteScalar

        End Function

        Public ReadOnly Property Parameters() As System.Data.IDataParameterCollection Implements System.Data.IDbCommand.Parameters
            Get

            End Get
        End Property

        Public Sub Prepare() Implements System.Data.IDbCommand.Prepare

        End Sub

        Public Property Transaction() As System.Data.IDbTransaction Implements System.Data.IDbCommand.Transaction
            Get

            End Get
            Set(ByVal value As System.Data.IDbTransaction)

            End Set
        End Property

        Public Property UpdatedRowSource() As System.Data.UpdateRowSource Implements System.Data.IDbCommand.UpdatedRowSource
            Get

            End Get
            Set(ByVal value As System.Data.UpdateRowSource)

            End Set
        End Property

        Private disposedValue As Boolean = False        ' To detect redundant calls

        ' IDisposable
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not Me.disposedValue Then
                If disposing Then
                    ' TODO: free other state (managed objects).
                End If

                ' TODO: free your own state (unmanaged objects).
                ' TODO: set large fields to null.
            End If
            Me.disposedValue = True
        End Sub

#Region " IDisposable Support "
        ' This code added by Visual Basic to correctly implement the disposable pattern.
        Public Sub Dispose() Implements IDisposable.Dispose
            ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub
#End Region

    End Class


    Public Class OracleParameter
        Implements IDataParameter

        Public Property DbType() As System.Data.DbType Implements System.Data.IDataParameter.DbType
            Get

            End Get
            Set(ByVal value As System.Data.DbType)

            End Set
        End Property

        Public Property Direction() As System.Data.ParameterDirection Implements System.Data.IDataParameter.Direction
            Get

            End Get
            Set(ByVal value As System.Data.ParameterDirection)

            End Set
        End Property

        Public ReadOnly Property IsNullable() As Boolean Implements System.Data.IDataParameter.IsNullable
            Get

            End Get
        End Property

        Public Property ParameterName() As String Implements System.Data.IDataParameter.ParameterName
            Get

            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Property SourceColumn() As String Implements System.Data.IDataParameter.SourceColumn
            Get

            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Property SourceVersion() As System.Data.DataRowVersion Implements System.Data.IDataParameter.SourceVersion
            Get

            End Get
            Set(ByVal value As System.Data.DataRowVersion)

            End Set
        End Property

        Public Property Value() As Object Implements System.Data.IDataParameter.Value
            Get

            End Get
            Set(ByVal value As Object)

            End Set
        End Property

        Public Property Size() As Double
            Get

            End Get
            Set(ByVal value As Double)

            End Set
        End Property
    End Class




End Namespace
